home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 59 / af059a.adf / inter.lha / Install InterBase < prev    next >
Text File  |  1993-01-28  |  22KB  |  719 lines
  1. ;==========================================================
  2. ; $VER: Install InterBase V33.1 (MultiLanguage) (22.01.93)
  3. ;==========================================================
  4.  
  5. ;----------------------------------------------------------------------------------
  6. ; Some switches to this installer script:
  7. ; AmigaGuide:      0 = don't copy amigaguide.library, 1 = copy amigaguide.library.
  8. ; Limited Version: 0 = Full version,                  1 = Limited version.
  9. ; Examples:        0 = No examples on disk.           1 = Examples on disk.
  10. ;----------------------------------------------------------------------------------
  11. (set amigaguidecopy 0)
  12. (set limitedversion 0)
  13. (set examples       1)
  14.  
  15. ;------------------
  16. ; Reset complete %
  17. ;------------------
  18. (complete 0)
  19.  
  20. ;-------------------------
  21. ; Set our path variables.
  22. ;-------------------------
  23. (set sourcepath (cat @app-name ":"))
  24. (set @default-dest "SYS:")
  25.  
  26. ;-------------------------------------
  27. ; Variables to check for boot-device.
  28. ;-------------------------------------
  29. (set sys-space (getdiskspace "SYS:"))
  30. (set appname-space (getdiskspace (cat @app-name ":")))
  31.  
  32. ;============================================================================
  33. ; English Strings
  34. ;============================================================================
  35. (if (= @language "english")
  36. (
  37. (set default_lang 4)
  38.  
  39. (set #askdestdir
  40. (cat "In which drawer would you like to install " @app-name " ?"
  41. ))
  42.  
  43. (set #askdesthelp
  44. (cat "You must choose the drawer where you will install " @app-name "."
  45.      " A drawer by the name of " @app-name " will automatically be "
  46.      "created below the drawer you choose here.\n\n" @askdir-help
  47. ))
  48.  
  49. (set #installaborted
  50. (cat "Installation of " @app-name " aborted."
  51. ))
  52.  
  53. (set #destdirexists
  54. (cat "\n\n\n\n" @app-name " already exists. Should I abort the "
  55.      "installation ?"
  56. ))
  57.  
  58. (set #destdirexistshelp
  59. (cat "The " @app-name " drawer does already exist. You must choose if "
  60.      "you want to install over the old version, or abort now, delete "
  61.      "the old version, and then re-install " @app-name ". The "
  62.      "recommended way is to delete the old version and then re-install."
  63. ))
  64.  
  65. (set #examplesdrawername
  66. (cat "Examples"
  67. ))
  68.  
  69. (set #nowcopying1
  70. (cat "Now copying " @app-name " and related files..."
  71. ))
  72.  
  73. (set #nowcopying1help
  74. (cat "This will copy " @app-name " and related files to the selected destination "
  75.      "drawer.\n\n" @copyfiles-help
  76. ))
  77.  
  78. (set #nowcopying3
  79. (cat "Now copying demo " #examplesdrawername "..."
  80. ))
  81.  
  82. (set #nowcopying3help
  83. (cat "This will copy demo " #examplesdrawername ". These " #examplesdrawername
  84.      " demonstrate some basic features of " @app-name " from which you can learn.\n\n"
  85.      @copyfiles-help
  86. ))
  87.  
  88. (set #nowcopying4
  89. (cat "About to copy amigaguide.library..."
  90. ))
  91.  
  92. (set #nowcopying4help
  93. (cat "This will copy amigaguide.library to your LIBS: drawer. " @app-name
  94.      " requires this library in order to display amigaguide on-line help "
  95.      "documents.\n\n" @copylib-help
  96. ))
  97.  
  98. (set #startupdest
  99. (cat "Where may I insert an " @app-name ": assignment? Use HELP if in "
  100.      "doubt."
  101. ))
  102.  
  103. (set #startupdesthelp
  104. (cat @app-name " needs a logic assignment by the name of " @app-name ":"
  105.      ". This assign is important, since it enables " @app-name " to find "
  106.      "it's configuration and related files. In order to make this "
  107.      "assignment automatically on every startup, you need to tell "
  108.      "me which file I can insert this assign statement in.\n\n" @askfile-help
  109. ))
  110.  
  111. (set #installfinished
  112. (cat "\n\n\nInstallation finished! As soon as you leave this program, "
  113.      "your machine will be rebooted. While this happens you should eject "
  114.      "the " @app-name " disk, and wait for your machine to finish booting "
  115.      "on your harddrive. As soon as your machine is ready, you can start "
  116.      "using " @app-name " from your Workbench."
  117. ))
  118.  
  119. (set #mustbootfromhd
  120. (cat "\n\n\nError: You must boot from your harddrive to install " @app-name "."
  121. ))
  122.  
  123. ))
  124.  
  125. ;============================================================================
  126. ; German Strings
  127. ;============================================================================
  128. (if (= @language "deutsch")
  129. (
  130. (set default_lang 4)
  131.  
  132. (set #askdestdir
  133. (cat "Im welcher schublade wollen Sie " @app-name " installieren ?"
  134. ))
  135.  
  136. (set #askdesthelp
  137. (cat "Sie müssen jetzt wählen wo Sie " @app-name " installieren wollen. "
  138.      "Es wird automatisch eine schublade mit dem namen " @app-name " "
  139.      "erstellt, so dass Sie zum beispiel auf WORK: installieren können."
  140. ))
  141.  
  142. (set #installaborted
  143. (cat "Installierung von " @app-name " abgebrochen."
  144. ))
  145.  
  146. (set #destdirexists
  147. (cat "\n\n\n\nDie " @app-name " schublade eksistiert schon auf ihre festplatte. "
  148.      "Wollen Sie die installierung abbrechen ?"
  149. ))
  150.  
  151. (set #destdirexistshelp
  152. (cat "Die " @app-name " schublade eksisiert schon auf ihre festplatte. Sie müssen "
  153.      "jetzt wählen ob Sie mit Der installierungen fortsetzen wohlen, was eine "
  154.      "ältere version des " @app-name " überschreiben will, oder ob Sie jetzt "
  155.      "abbrechen wollen, und etwas speicher auf ihre festplatte freimachen wollen "
  156.      "und dann hier wieder installieren."
  157. ))
  158.  
  159. (set #examplesdrawername
  160. (cat "Beispiele"
  161. ))
  162.  
  163. (set #nowcopying1
  164. (cat "Kopiert jetzt " @app-name " und relatierte dateien..."
  165. ))
  166.  
  167. (set #nowcopying1help
  168. (cat "Dieses wird " @app-name " und relatierte dateien zur ihre festplatte kopieren."
  169.      "\n\n" @copyfiles-help
  170. ))
  171.  
  172. (set #nowcopying3
  173. (cat "Kopiert jetzt demo " #examplesdrawername "..."
  174. ))
  175.  
  176. (set #nowcopying3help
  177. (cat "Dieses wird demo " #examlesdrawername " kopieren. Diese " #examplesdrawername
  178.      " demonstrieren einige funktionen von " @app-name " von die Sie lernen können.\n\n"
  179.      @copyfiles-help
  180. ))
  181.  
  182. (set #nowcopying4
  183. (cat "Kopiert jetzt amigaguide.library..."
  184. ))
  185.  
  186. (set #nowcopying4help
  187. (cat "Dieses wird amigaguide.library nach ihre LIBS: schublade kopieren. " @app-name
  188.      " braucht dieses library um on-line hilfe zu zeigen.\n\n" @copylib-help
  189. ))
  190.  
  191. (set #startupdest
  192. (cat "Wo darf ich einen " @app-name ": assignment machen? Bitte HILFE drücken wenn Sie "
  193.      "hier nicht sicher sind."
  194. ))
  195.  
  196. (set #startupdesthelp
  197. (cat @app-name " braucht einen logischen assign mit den namen " @app-name ":."
  198.      "Um diesen assign automatisch zu machen, müssen Sie mir erzählen "
  199.      "wo ich diesen assign eintragen kann."
  200. ))
  201.  
  202. (set #installfinished
  203. (cat "\n\n\nDie installierung von " @app-name " ist beendet. Sobald Sie dieses programm "
  204.      "verlassen, wird ihren computer gebootet. Weil Dieses passiert sollten Sie die "
  205.      @app-name " diskette von ihrem laufwerk entfernen. Sobald ihren computer von der "
  206.      "festplatte gestartet hat, können Sie " @app-name " von ihre festplatte benutzen."
  207. ))
  208.  
  209. (set #mustbootfromhd
  210. (cat "\n\n\nFehler: Sie müssen von ihrer festplatte " @app-name " installieren."
  211. ))
  212.  
  213. ))
  214.  
  215. ;============================================================================
  216. ; Danish Strings
  217. ;============================================================================
  218. (if (= @language "dansk")
  219. (
  220. (set default_lang 1)
  221.  
  222. (set #askdestdir
  223. (cat "I hvilken skuffe ønsker De at installere " @app-name " ?"
  224. ))
  225.  
  226. (set #askdesthelp
  227. (cat "De skal her vælge i hvilken skuffe De ønsker at installere "
  228.      @app-name ". Der vil automatisk blive oprettet en skuffe ved "
  229.      "navn " @app-name " under den skuffe De vælger her.\n\n" @askdir-help
  230. ))
  231.  
  232. (set #installaborted
  233. (cat "Installering af " @app-name " afbrudt."
  234. ))
  235.  
  236. (set #destdirexists
  237. (cat "\n\n\n\n" @app-name " skuffen eksisterer allerede. Skal jeg "
  238.      "afbryde installeringen ?"
  239. ))
  240.  
  241. (set #destdirexistshelp
  242. (cat @app-name " skuffen eksisterer allerede. De skal nu afgøre om De "
  243.      "vil fortsætte installeringen, hvilket indebærer at De installerer "
  244.      "oveni en tidligere " @app-name ", eller om De vil afbryde "
  245.      "installeringen, og evt. selv slette den gamle " @app-name ", og så "
  246.      "re-installere.\n\n Forslag: De bør afbryde installeringen, slette "
  247.      @app-name " skuffen og dens indhold, og så vende tilbage og "
  248.      "re-installere " @app-name " her."
  249. ))
  250.  
  251. (set #examplesdrawername
  252. (cat "Eksempler"
  253. ))
  254.  
  255. (set #nowcopying1
  256. (cat "Kopierer nu " @app-name " og relaterede filer..."
  257. ))
  258.  
  259. (set #nowcopying1help
  260. (cat "Dette vil kopiere " @app-name " og relaterede filer til destinations skuffen.\n\n"
  261.       @copyfiles-help
  262. ))
  263.  
  264. (set #nowcopying3
  265. (cat "Kopierer demo " #examplesdrawername "..."
  266. ))
  267.  
  268. (set #nowcopying3help
  269. (cat "Dette vil kopiere " #examplesdrawername ". Disse " #examplesdrawername
  270.      " demonstrerer nogle basis funktioner i " @app-name " som De kan lære fra.\n\n"
  271.      @copyfiles-help
  272. ))
  273.  
  274. (set #nowcopying4
  275. (cat "Kopiering af amigaguide.library..."
  276. ))
  277.  
  278. (set #nowcopying4help
  279. (cat "Dette vil kopiere amigaguide.library til Deres LIBS: skuffe. " @app-name
  280.      " kræver dette library hvis amigaguide on-line hjælp dokumenter skal vises.\n\n"
  281.      @copylib-help
  282. ))
  283.  
  284. (set #startupdest
  285. (cat "Hvor kan jeg tilføje et " @app-name ": assignment? Brug HELP "
  286.      "hvis De er i tvivl."
  287. ))
  288.  
  289. (set #startupdesthelp
  290. (cat @app-name " behøver en logisk assign ved navn " @app-name ":. "
  291.      "For at kunne lave denne assign automatisk for Dem, må De "
  292.      "fortælle mig hvor Deres User-Startup fil ligger. Hvis De ikke "
  293.      "har nogen User-Startup fil, så vælg Deres Startup-Sequence "
  294.      "fil istedet. Disse filer bør ligge i Deres \"S\" skuffe "
  295.      "på Den harddisk De evt. har bootet fra.\n\n"
  296.      "Hvis De stadig er i tvivl om hvad De skal gøre her, så kig"
  297.      "venligst i " @app-name " bogen, hvor dette står beskrevet.\n\n" @askfile-help
  298. ))
  299.  
  300. (set #installfinished
  301. (cat "\n\n\nInstalleringen er slut! Så snart De har forladt dette program "
  302.      "rebootes Deres maskine. Mens dette sker skal De tage " @app-name
  303.      "disketten ud af diskettedrevet, og efter endt reboot fra Deres "
  304.      "harddisk, kan De nu start " @app-name " fra Deres Workbench."
  305. ))
  306.  
  307. (set #mustbootfromhd
  308. (cat "\n\n\nFejl: De skal boote fra Deres harddisk for at installere "
  309.      @app-name "."
  310. ))
  311.  
  312. ))
  313.  
  314. ;============================================================================
  315. ; Swedish Strings
  316. ;============================================================================
  317. (if (= @language "svenska")
  318. (
  319. (set default_lang 1)
  320.  
  321. (set #askdestdir
  322. (cat "I hvilken skuffe ønsker De at installere " @app-name " ?"
  323. ))
  324.  
  325. (set #askdesthelp
  326. (cat "De skal her vælge i hvilken skuffe De ønsker at installere "
  327.      @app-name ". Der vil automatisk blive oprettet en skuffe ved "
  328.      "navn " @app-name " under den skuffe De vælger her.\n\n" @askdir-help
  329. ))
  330.  
  331. (set #installaborted
  332. (cat "Installering af " @app-name " afbrudt."
  333. ))
  334.  
  335. (set #destdirexists
  336. (cat "\n\n\n\n" @app-name " skuffen eksisterer allerede. Skal jeg "
  337.      "afbryde installeringen ?"
  338. ))
  339.  
  340. (set #destdirexistshelp
  341. (cat @app-name " skuffen eksisterer allerede. De skal nu afgøre om De "
  342.      "vil fortsætte installeringen, hvilket indebærer at De installerer "
  343.      "oveni en tidligere " @app-name ", eller om De vil afbryde "
  344.      "installeringen, og evt. selv slette den gamle " @app-name ", og så "
  345.      "re-installere.\n\n Forslag: De bør afbryde installeringen, slette "
  346.      @app-name " skuffen og dens indhold, og så vende tilbage og "
  347.      "re-installere " @app-name " her."
  348. ))
  349.  
  350. (set #examplesdrawername
  351. (cat "Examples"
  352. ))
  353.  
  354. (set #nowcopying1
  355. (cat "Kopierer nu " @app-name " og relaterede filer..."
  356. ))
  357.  
  358. (set #nowcopying1help
  359. (cat "Dette vil kopiere " @app-name " og relaterede filer til destinations skuffen.\n\n"
  360.       @copyfiles-help
  361. ))
  362.  
  363. (set #nowcopying3
  364. (cat "Kopierer demo " #examplesdrawername "..."
  365. ))
  366.  
  367. (set #nowcopying3help
  368. (cat "Dette vil kopiere " #examplesdrawername ". Disse " #examplesdrawername
  369.      " demonstrerer nogle basis funktioner i " @app-name " som De kan lære fra.\n\n"
  370.      @copyfiles-help
  371. ))
  372.  
  373. (set #nowcopying4
  374. (cat "Kopiering af amigaguide.library..."
  375. ))
  376.  
  377. (set #nowcopying4help
  378. (cat "Dette vil kopiere amigaguide.library til Deres LIBS: skuffe. " @app-name
  379.      " kræver dette library hvis amigaguide on-line hjælp dokumenter skal vises.\n\n"
  380.      @copylib-help
  381. ))
  382.  
  383. (set #startupdest
  384. (cat "Hvor kan jeg tilføje et " @app-name ": assignment? Brug HELP "
  385.      "hvis De er i tvivl."
  386. ))
  387.  
  388. (set #startupdesthelp
  389. (cat @app-name " behøver en logisk assign ved navn " @app-name ":. "
  390.      "For at kunne lave denne assign automatisk for Dem, må De "
  391.      "fortælle mig hvor Deres User-Startup fil ligger. Hvis De ikke "
  392.      "har nogen User-Startup fil, så vælg Deres Startup-Sequence "
  393.      "fil istedet. Disse filer bør ligge i Deres \"S\" skuffe "
  394.      "på Den harddisk De evt. har bootet fra.\n\n"
  395.      "Hvis De stadig er i tvivl om hvad De skal gøre her, så kig"
  396.      "venligst i " @app-name " bogen, hvor dette står beskrevet.\n\n" @askfile-help
  397. ))
  398.  
  399. (set #installfinished
  400. (cat "\n\n\nInstalleringen er slut! Så snart De har forladt dette program "
  401.      "rebootes Deres maskine. Mens dette sker skal De tage " @app-name
  402.      "disketten ud af diskettedrevet, og efter endt reboot fra Deres "
  403.      "harddisk, kan De nu start " @app-name " fra Deres Workbench."
  404. ))
  405.  
  406. (set #mustbootfromhd
  407. (cat "\n\n\nFejl: De skal boote fra Deres harddisk for at installere "
  408.      @app-name "."
  409. ))
  410.  
  411. ))
  412.  
  413. ;============================================================================
  414. ; Norwegian Strings
  415. ;============================================================================
  416. (if (= @language "norsk")
  417. (
  418. (set default_lang 1)
  419.  
  420. (set #askdestdir
  421. (cat "I hvilken skuffe ønsker De at installere " @app-name " ?"
  422. ))
  423.  
  424. (set #askdesthelp
  425. (cat "De skal her vælge i hvilken skuffe De ønsker at installere "
  426.      @app-name ". Der vil automatisk blive oprettet en skuffe ved "
  427.      "navn " @app-name " under den skuffe De vælger her.\n\n" @askdir-help
  428. ))
  429.  
  430. (set #installaborted
  431. (cat "Installering af " @app-name " afbrudt."
  432. ))
  433.  
  434. (set #destdirexists
  435. (cat "\n\n\n\n" @app-name " skuffen eksisterer allerede. Skal jeg "
  436.      "afbryde installeringen ?"
  437. ))
  438.  
  439. (set #destdirexistshelp
  440. (cat @app-name " skuffen eksisterer allerede. De skal nu afgøre om De "
  441.      "vil fortsætte installeringen, hvilket indebærer at De installerer "
  442.      "oveni en tidligere " @app-name ", eller om De vil afbryde "
  443.      "installeringen, og evt. selv slette den gamle " @app-name ", og så "
  444.      "re-installere.\n\n Forslag: De bør afbryde installeringen, slette "
  445.      @app-name " skuffen og dens indhold, og så vende tilbage og "
  446.      "re-installere " @app-name " her."
  447. ))
  448.  
  449. (set #examplesdrawername
  450. (cat "Examples"
  451. ))
  452.  
  453. (set #nowcopying1
  454. (cat "Kopierer nu " @app-name " og relaterede filer..."
  455. ))
  456.  
  457. (set #nowcopying1help
  458. (cat "Dette vil kopiere " @app-name " og relaterede filer til destinations skuffen.\n\n"
  459.       @copyfiles-help
  460. ))
  461.  
  462. (set #nowcopying3
  463. (cat "Kopierer demo " #examplesdrawername "..."
  464. ))
  465.  
  466. (set #nowcopying3help
  467. (cat "Dette vil kopiere " #examplesdrawername ". Disse " #examplesdrawername
  468.      " demonstrerer nogle basis funktioner i " @app-name " som De kan lære fra.\n\n"
  469.      @copyfiles-help
  470. ))
  471.  
  472. (set #nowcopying4
  473. (cat "Kopiering af amigaguide.library..."
  474. ))
  475.  
  476. (set #nowcopying4help
  477. (cat "Dette vil kopiere amigaguide.library til Deres LIBS: skuffe. " @app-name
  478.      " kræver dette library hvis amigaguide on-line hjælp dokumenter skal vises.\n\n"
  479.      @copylib-help
  480. ))
  481.  
  482. (set #startupdest
  483. (cat "Hvor kan jeg tilføje et " @app-name ": assignment? Brug HELP "
  484.      "hvis De er i tvivl."
  485. ))
  486.  
  487. (set #startupdesthelp
  488. (cat @app-name " behøver en logisk assign ved navn " @app-name ":. "
  489.      "For at kunne lave denne assign automatisk for Dem, må De "
  490.      "fortælle mig hvor Deres User-Startup fil ligger. Hvis De ikke "
  491.      "har nogen User-Startup fil, så vælg Deres Startup-Sequence "
  492.      "fil istedet. Disse filer bør ligge i Deres \"S\" skuffe "
  493.      "på Den harddisk De evt. har bootet fra.\n\n"
  494.      "Hvis De stadig er i tvivl om hvad De skal gøre her, så kig"
  495.      "venligst i " @app-name " bogen, hvor dette står beskrevet.\n\n" @askfile-help
  496. ))
  497.  
  498. (set #installfinished
  499. (cat "\n\n\nInstalleringen er slut! Så snart De har forladt dette program "
  500.      "rebootes Deres maskine. Mens dette sker skal De tage " @app-name
  501.      "disketten ud af diskettedrevet, og efter endt reboot fra Deres "
  502.      "harddisk, kan De nu start " @app-name " fra Deres Workbench."
  503. ))
  504.  
  505. (set #mustbootfromhd
  506. (cat "\n\n\nFejl: De skal boote fra Deres harddisk for at installere "
  507.      @app-name "."
  508. ))
  509.  
  510. ))
  511.  
  512. ;============================================================================
  513.  
  514. ;---------
  515. ; Say HI!
  516. ;---------
  517. (welcome)
  518.  
  519. ;-----------------------
  520. ; Recognize OS version.
  521. ;-----------------------
  522. (set osver (/ (getversion) 65535))
  523.  
  524. ;---------------------------------
  525. ; User *HAS* to boot from his HD!
  526. ;---------------------------------
  527. (if (= sys-space appname-space)
  528. (
  529. ;-> User booted from disk. This is *NOT* allowed!
  530.    (message #mustbootfromhd)
  531.    (abort #installaborted)
  532. ))
  533.  
  534. ;--------------------------------
  535. ; Ask for destination directory.
  536. ;--------------------------------
  537. (set @default-dest
  538.    (askdir (prompt #askdestdir)
  539.            (help   #askdesthelp)
  540.            (default @default-dest)
  541.    )
  542. )
  543.  
  544. ;-------------------------------------------------------
  545. ; Check that directory @app-name doesn't exist already.
  546. ;-------------------------------------------------------
  547. (set @default-dest (tackon @default-dest @app-name))
  548. (if (exists @default-dest)
  549.    (if (askbool (prompt #destdirexists)
  550.                 (help   #destdirexistshelp)
  551.                 (default 1)
  552.        )
  553.       (abort #installaborted)
  554.    )
  555. )
  556.  
  557. ;---------------------------------------------
  558. ; Creating directories in destination drawer.
  559. ;---------------------------------------------
  560. (makedir @default-dest (infos))
  561. (set temp (tackon @default-dest #examplesdrawername))
  562. (makedir temp)
  563.  
  564. ;--------------------------------------
  565. ; Copying @app-name and related files.
  566. ;--------------------------------------
  567. (copyfiles (prompt  #nowcopying1)
  568.            (help    #nowcopying1help)
  569.            (source  sourcepath)
  570.            (dest    @default-dest)
  571.            (choices @app-name (cat @app-name ".info") "FileID")
  572.            (confirm "expert")
  573. )
  574.  
  575. ;--------------
  576. ; Copy manual.
  577. ;--------------
  578. (if (= limitedversion 1)
  579. (
  580.    (if (= @language "deutsch")
  581.    (
  582.       (copyfiles (prompt  #nowcopying1)
  583.                  (help    #nowcopying1help)
  584.                  (source  sourcepath)
  585.                  (dest    @default-dest)
  586.                  (choices (cat @app-name ".dok") (cat @app-name ".dok.info"))
  587.                  (confirm "expert")
  588.       )
  589.    ))
  590. ))
  591.  
  592. ;------------------
  593. ; Copy amigaguide.
  594. ;------------------
  595. (if (= amigaguidecopy 1)
  596. (
  597.    (copyfiles (prompt  #nowcopying1)
  598.               (help    #nowcopying1help)
  599.               (source  sourcepath)
  600.               (dest    @default-dest)
  601.               (choices (cat @app-name "Pro.guide"))
  602.               (confirm "expert")
  603.    )
  604. ))
  605.  
  606. (complete 50)
  607.  
  608. ;--------------------
  609. ; Copying Examples/*
  610. ;--------------------
  611. (if (= examples 1)
  612. (
  613.    (set temp1 (tackon @default-dest #examplesdrawername))
  614.    (set temp2 (tackon sourcepath #examplesdrawername))
  615.    (copyfiles (prompt #nowcopying3)
  616.               (help   #nowcopying3help)
  617.               (source temp2)
  618.               (dest temp1)
  619.               (all)
  620.               (confirm "expert")
  621.    )
  622. ))
  623.  
  624. (if (= amigaguidecopy 1)
  625. (
  626.    (complete 85)
  627. )
  628. (
  629.    (complete 95)
  630. ))
  631.  
  632. ;-----------------------------
  633. ; Copying amigaguide.library.
  634. ;-----------------------------
  635. (if (= amigaguidecopy 1)
  636. (
  637.    (copylib (prompt #nowcopying4)
  638.             (help   #nowcopying4help)
  639.             (source (tackon sourcepath "Libs/amigaguide.library"))
  640.             (dest   "LIBS:")
  641.             (optional)
  642.             (confirm "average")
  643.    )
  644. ))
  645.  
  646. ;-----------------------------------------
  647. ; Only make assign if there are examples.
  648. ;-----------------------------------------
  649. (if (= examples 1)
  650. (
  651.    ;-------------------------------------------
  652.    ; Figuring out which file to put assign in.
  653.    ;-------------------------------------------
  654.    (set path (getassign "S"))
  655.    (if (< osver 36)
  656.    (
  657.       (set suggestedfile (tackon path "StartupII"))
  658.    )
  659.    (
  660.       (set suggestedfile (tackon path "User-Startup"))
  661.    ))
  662.  
  663.    ;------------------------------------------------------------------------------------
  664.    ; Check OS version and append @app-name: assign to either StartupII or User-Startup.
  665.    ;------------------------------------------------------------------------------------
  666.    (set startup-dest
  667.       (askfile (prompt #startupdest)
  668.                (help   #startupdesthelp)
  669.                (default suggestedfile)
  670.       )
  671.    )
  672.    (set startup-path (pathonly startup-dest))
  673.    (set startup-file (fileonly startup-dest))
  674.    (set ramname (tackon "RAM:" startup-file))
  675.  
  676.    (if (= @language "deutsch")
  677.    (
  678.       (textfile (dest ramname)
  679.                 (include startup-dest)
  680.                 (append "\n;BEGIN " @app-name "\n"
  681.                            "Assign " @app-name ": " @default-dest "\n"
  682.                           ";END " @app-name "\n")
  683.       )
  684.    )
  685.    (
  686.       (textfile (dest ramname)
  687.                 (include startup-dest)
  688.                 (append "\n;BEGIN " @app-name "\n"
  689.                            "Assign \"" @app-name " 2:\"" " " (tackon @default-dest #examplesdrawername) "\n"
  690.                           ";END " @app-name "\n")
  691.       )
  692.    ))
  693.    (copyfiles (source "RAM:")
  694.               (dest startup-path)
  695.               (choices startup-file)
  696.               (nogauge)
  697.    )
  698.    (delete ramname)
  699.  
  700.    ;------------------------
  701.    ; Installation finished!
  702.    ;------------------------
  703.    (message #installfinished)
  704.  
  705.    (complete 100)
  706.  
  707.    ;---------
  708.    ; Reboot!
  709.    ;---------
  710.    (run (tackon sourcepath "C/Reboot"))
  711. ))
  712.  
  713. ;------------------------------------------------------------------
  714. ; If something goes wrong the onerror below is called to clean-up.
  715. ;------------------------------------------------------------------
  716. (onerror
  717.    (delete @default-dest)
  718. )
  719.